home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / tts.frm < prev    next >
Text File  |  1995-05-07  |  2KB  |  74 lines
  1. VERSION 2.00
  2. Begin Form TTSForm 
  3.    Caption         =   "TTS Services Test"
  4.    ClientHeight    =   2280
  5.    ClientLeft      =   2010
  6.    ClientTop       =   1500
  7.    ClientWidth     =   7320
  8.    Height          =   2685
  9.    Left            =   1950
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2280
  12.    ScaleWidth      =   7320
  13.    Top             =   1155
  14.    Width           =   7440
  15.    Begin ListBox ServerList 
  16.       FontBold        =   -1  'True
  17.       FontItalic      =   0   'False
  18.       FontName        =   "Courier"
  19.       FontSize        =   9.75
  20.       FontStrikethru  =   0   'False
  21.       FontUnderline   =   0   'False
  22.       Height          =   1395
  23.       Left            =   120
  24.       TabIndex        =   1
  25.       Top             =   120
  26.       Width           =   7095
  27.    End
  28.    Begin CommandButton OKButton 
  29.       Caption         =   "&OK"
  30.       Height          =   375
  31.       Left            =   3120
  32.       TabIndex        =   0
  33.       Top             =   1800
  34.       Width           =   855
  35.    End
  36. End
  37.  
  38. Sub OKButton_Click ()
  39.     Unload TTSForm
  40. End Sub
  41.  
  42. Sub Form_Load ()
  43.  
  44.     prefConnID% = GetPreferredConnectionID()
  45.  
  46.     For connID% = 1 To 8
  47.         'for each connection in workstation's file server name table
  48.         'get the table entry, then see if it's null
  49.         
  50.         serverName$ = String$(48, 0)
  51.  
  52.         If (IsConnectionIDInUse(connID%) = 1) Then
  53.             GetFileServerName connID%, serverName$
  54.             serverName$ = Left$(serverName$, InStr(serverName$, Chr$(0)) - 1)
  55.             If (Len(serverName$) > 20) Then
  56.                 serverName$ = Left$(serverName$, 20)
  57.             End If
  58.  
  59.             SetPreferredConnectionID (connID%)
  60.             ttsAvail% = TTSIsAvailable()
  61.             If (ttsAvail% = 1) Then
  62.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " TTS is available"
  63.             ElseIf (ttsAvail% = 253) Then
  64.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " TTS is disabled"
  65.             Else
  66.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " TTS is not available"
  67.             End If
  68.         End If
  69.     Next connID%
  70.  
  71.     SetPreferredConnectionID (prefConnID%)
  72. End Sub
  73.  
  74.